home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.0 / stk-3 / blt-for-STk-3.0 / blt-1.9 / demos / debug < prev    next >
Encoding:
Text File  |  1995-07-01  |  403 b   |  16 lines
  1. #! ../blt_wish -f
  2.  
  3. proc beforeWatch { level cmdStr argList } {
  4.     set cmd [lindex $argList 0]
  5.     puts stderr "$level $cmd => $cmdStr"
  6. }
  7. proc beforeWatch { level cmdStr argList } {
  8. }
  9. proc afterWatch { level cmdStr argList code results } {
  10.     set cmd [lindex $argList 0]
  11.     puts stderr "$level $cmd => $argList\n<= ($code) $results"
  12. }
  13.  
  14. blt_watch create trace -postcmd afterWatch 
  15. #-before beforeWatch
  16.